home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 41.zip
/
BS1 part 41
/
STFX-soundsystemdisk.adf
/
sources
/
CheckSoundControll.S
next >
Wrap
Text File
|
1988-01-20
|
820b
|
53 lines
Read=-$2a
Write=-$30
Input=-$36
Output=-$3c
start:
lea name,a1
copyLoop:
move.b (a0)+,(a1)+
dbf d0,copyLoop
move.l #dosname,a1
move.l 4,a6
jsr -408(a6)
move.l d0,dosbase
cmp.l #$fc0cd8,$6c ;ist dort nicht der alte Vector ???
bne SoundControllAktive ;nein etwas anderes....
clr.l d0
rts
SoundControllAktive:
move.l #text,a0
bsr print
move.l #5,d0 ;CLI-WARNING
rts
print:
move.l a0,-(a7)
move.l DosBase,a6
jsr OutPut(a6)
move.l d0,d1
move.l (a7)+,a0
move.l a0,d2
andi.w #-2,d2
NullFind:
tst.b (a0)+
bne.s NullFind
move.l a0,d3
sub.l d2,d3
move.l DosBase,a6
jsr write(a6)
rts
text:
dc.b 10
dc.b 'Please Remove SOUND-CONTROLLER before starting '
name:
blk.b 25,' '
dc.b 10,10,0
dosname: dc.b 'dos.library',0
even
dosbase: dc.l 0